10 FORI=54272TO54295:POKEI,0:NEXT
15 FORL=0TO6:POKE54296,L
20 POKE54278,130:POKE54276,17:POKE54277,9:NEXTL
60 FORA=207TO0STEP-.5:POKE54273,A:NEXTA:FORT=1TO300:NEXTT
95 POKE54296,15:POKE54277,0*16+10:POKE54278,15*16
120 POKE54273,35:POKE54272,3:POKE54276,129